home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / grafik / raytracing / dust / cdeformtut / head->bottle / head->bottle.bat < prev    next >
Encoding:
DOS Batch File  |  1995-09-15  |  2.2 KB  |  89 lines
  1. load(1,head3)
  2. load(2,bottle3)
  3. set(interpmode,moden)
  4.  
  5. ;start with subgroup 'G1'
  6. .srcSG=1
  7. cdeform(1,2,G$(srcSG),NONE,0.0)
  8. .srcSG=srcSG+1
  9.  
  10. ; bottle-segment 1 - move 5 source-curves
  11. .destSG1=1
  12. .destSG2=2
  13. .steps=5
  14.  
  15. ;move the 2nd curve without control-curves because we have only one
  16. cdeforminterp(1,2,G$(srcSG),NONE,G$(destSG1),NONE,G$(destSG2),NONE,1/steps,0.0)
  17. .srcSG=srcSG+1
  18.  
  19.  
  20. ;now we always have two control-curves
  21. for(i,2,steps)
  22.  .scale=i*1.0/steps
  23.  cdeforminterp(1,2,G$(srcSG),NONE,G$(destSG1),NONE,G$(destSG2),NONE,scale,0.0,G$(srcSG-1),NONE,G$(srcSG-2),NONE)
  24.  .srcSG=srcSG+1
  25. end
  26.  
  27. ; bottle-segment 2 - move 4 source-curves
  28. .destSG1=destSG1+1
  29. .destSG2=destSG2+1
  30. .steps=4
  31. for(i,1,steps)
  32.  .scale=i*1.0/steps
  33.  cdeforminterp(1,2,G$(srcSG),NONE,G$(destSG1),NONE,G$(destSG2),NONE,scale,0.0,G$(srcSG-1),NONE,G$(srcSG-2),NONE)
  34.  .srcSG=srcSG+1
  35. end
  36.  
  37. ; bottle-segment 3 - move 5 source-curves
  38. .destSG1=destSG1+1
  39. .destSG2=destSG2+1
  40. .steps=5
  41. for(i,1,steps)
  42.  .scale=i*1.0/steps
  43.  cdeforminterp(1,2,G$(srcSG),NONE,G$(destSG1),NONE,G$(destSG2),NONE,scale,0.0,G$(srcSG-1),NONE,G$(srcSG-2),NONE)
  44.  .srcSG=srcSG+1
  45. end
  46.  
  47. ; bottle-segment 4 - move 5 source-curves
  48. .destSG1=destSG1+1
  49. .destSG2=destSG2+1
  50. .steps=5
  51. for(i,1,steps)
  52.  .scale=i*1.0/steps
  53.  cdeforminterp(1,2,G$(srcSG),NONE,G$(destSG1),NONE,G$(destSG2),NONE,scale,0.0,G$(srcSG-1),NONE,G$(srcSG-2),NONE)
  54.  .srcSG=srcSG+1
  55. end
  56.  
  57. ; bottle-segment 5 - move 5 source-curves
  58. .destSG1=destSG1+1
  59. .destSG2=destSG2+1
  60. .steps=5
  61. for(i,1,steps)
  62.  .scale=i*1.0/steps
  63.  cdeforminterp(1,2,G$(srcSG),NONE,G$(destSG1),NONE,G$(destSG2),NONE,scale,0.0,G$(srcSG-1),NONE,G$(srcSG-2),NONE)
  64.  .srcSG=srcSG+1
  65. end
  66.  
  67. ; bottle-segment 6 - move 5 source-curves
  68. .destSG1=destSG1+1
  69. .destSG2=destSG2+1
  70. .steps=5
  71. for(i,1,steps)
  72.  .scale=i*1.0/steps
  73.  cdeforminterp(1,2,G$(srcSG),NONE,G$(destSG1),NONE,G$(destSG2),NONE,scale,0.0,G$(srcSG-1),NONE,G$(srcSG-2),NONE)
  74.  .srcSG=srcSG+1
  75. end
  76.  
  77. ; bottle-segment 7 - move 3 source-curves
  78. .destSG1=destSG1+1
  79. .destSG2=destSG2+1
  80. .steps=3
  81. for(i,1,steps-1)
  82.  .scale=i*1.0/steps
  83.  cdeforminterp(1,2,G$(srcSG),NONE,G$(destSG1),NONE,G$(destSG2),NONE,scale,0.0,G$(srcSG-1),NONE,G$(srcSG-2),NONE)
  84.  .srcSG=srcSG+1
  85. end
  86. cdeforminterp(1,2,MAIN,NONE,G$(destSG1),NONE,G$(destSG2),NONE,1.0,0.0,G$(srcSG-1),NONE,G$(srcSG-2),NONE)
  87.  
  88. save(1,test)
  89.